00100	(LAP MAKEPPN SUBR) 
00200		(PUSH P 2) 
00300		(PUSH P 3) 
00400		(PUSHJ P FIX1A) 
00500		(CALL 1 (E ASCII)) 
00600		(EXCH 1 -1 P) 
00700		(PUSHJ P FIX1A) 
00800		(CALL 1 (E ASCII)) 
00900		(EXCH 1 0 P) 
01000		(PUSHJ P FIX1A) 
01100		(CALL 1 (E ASCII)) 
01200		(CALL 1 (E NCONS)) 
01300		(POP P 2) 
01400		(CALL 2 (E XCONS)) 
01500		(POP P 2) 
01600		(CALL 2 (E XCONS)) 
01700		(JCALL 1 (E MAKNAM)) 
01800		NIL 
01900	
02000	(CSYM G0297) 
02100	(DEFPROP ANDI 405000 SYM)
02200	(DEFPROP ADDI 271000 SYM)
02300	(DEFPROP CALLI 047000 SYM)
02400	(DEFPROP LSH 242000 SYM)
02500	
02600	(LAP GETPPN SUBR)
02700	(MOVEI 1 0)
02800	(CALLI 1 24)
02900	(MOVE 2 1)
03000	(MOVE 3 1)
03100	(LSH 1 -14)
03200	(LSH 2 -6)
03300	(ANDI 1 77)
03400	(ANDI 2 77)
03500	(ANDI 3 77)
03600	(ADDI 1 40)
03700	(ADDI 2 40)
03800	(ADDI 3 40)
03900	(JCALL 1 (E MAKEPPN))
04000	NIL
04100